home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ V5.02 / SCRPTEXM.PAK / REVISIT.SPP < prev    next >
Text File  |  1997-05-06  |  2KB  |  56 lines
  1. //--------------------------------------------------------------------------
  2. // Object Scripting
  3. // Copyright (c) 1996, 1997 by Borland International, All Rights Reserved
  4. //
  5. // REVISIT.SPP: Code Revisit Tool. Quickly lists occurrences of a 
  6. //   configurable "revisit this code" marker in all files in the specified
  7. //   directory.
  8. //
  9. // USE: Set revisit marker in revisit.cfg. Run script.
  10. //
  11. // FILES: REVISIT.CFG, MISC.SPP, FILE.SPP
  12. //
  13. // NOTES: All revisit.* files must reside in the same directory.
  14. //--------------------------------------------------------------------------
  15. print typeid(module());
  16.  
  17. //
  18. // IDE imports.
  19. //
  20. import IDE;
  21. import scriptEngine;
  22.  
  23. //
  24. // Load support module(s).
  25. //
  26. if (!scriptEngine.IsLoaded("misc")) scriptEngine.Load("misc");
  27. if (!scriptEngine.IsLoaded("file")) scriptEngine.Load("file");
  28.  
  29. ModuleDir = GetModuleDir(typeid(module()));  // Directory of this script.
  30.  
  31. revisit()
  32. {
  33.   // Get the search directory.
  34.   //
  35.   declare dir;
  36.   dir = IDE.DirectoryDialog("Enter the search directory.", NULL,
  37.                             IDE.CurrentDirectory);
  38.   if (dir == "") return;
  39.  
  40.   // Load configuration values.
  41.   //
  42.   declare CFGFile = new TConfigFile(ModuleDir + "\\revisit.cfg");
  43.   declare revisitMarker = CFGFile.GetValue("RevisitMarker", "\\#");
  44.   CFGFile.Close();
  45.  
  46.   // GREP for marker, indicating search directory, and show results.
  47.   //
  48.   IDE.StatusBar = "Searching " + IDE.CurrentDirectory;
  49.   declare cmd = "-n+ $NOSWAP$CAP MSG(GREP2MSG)" + revisitMarker + " " +
  50.                 dir + "\\*.*";
  51.   IDE.Tool("GrepFiles", cmd);
  52.   IDE.ViewMessage("Grep");
  53. }
  54.  
  55.  
  56.